home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / strings menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  750b  |  28 lines
  1. 10 rem  strings menu
  2. 20 poke53280,6:poke53281,13
  3. 30 print"[147][144]"spc(10)"[211]trings [193]ttached [205]enu"
  4. 35 print" [215]hat would you like to do?"
  5. 40 print"  1 ==> [210][213][206] the [211][212][210][201][206][199][211]-1 program?"
  6. 42 print"  2 ==> [210][213][206] the [211][212][210][201][206][199][211]-2 program?"
  7. 46 print"  3 ==> [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]?"
  8. 47 gosub100
  9. 48 :
  10. 50 print"[215]hich? ";
  11. 52 poke198,0:wait198,1:geta$
  12. 54 ifa$<>"1"anda$<>"2"anda$<>"3"then52
  13. 55 :
  14. 60 printa$
  15. 62 ifa$="1"thenf$="strings.1"
  16. 64 ifa$="2"thenf$="strings.2"
  17. 68 ifa$="3"thenf$="hello connect":open15,8,15,"r0:star=star":input#15,er:close15
  18. 70 :
  19. 73 ifa$="3"ander<>63thenend
  20. 80 print"[147]"spc(11)"[204]oading program..."
  21. 82 :
  22. 85 print"[153]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  23. 90 :
  24. 100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
  25. 110 print""a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
  26. 120 poke2023,42:poke56295,peek(55296)
  27. 130 return
  28.